home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
dbmail.arc
/
ML001.PRG
< prev
next >
Wrap
Text File
|
1988-06-18
|
3KB
|
98 lines
NOTE ML001 - REBUILD PARAMETERS FROM FILE ML001.MEM 9/27/84
STORE ' ' TO D
STORE F TO XXF
ERASE
@ 5,10 SAY 'W E L C O M E T O L I S T M A N A G E R'
@ 7,12 SAY 'PRINTER CONFIGURATION MENU'
@ 10,10 SAY '1 - OkiData 8x/9x'
@ 11,10 SAY '2 - NEC 8023/8025'
@ 12,10 SAY '3 - Gemini FX10/15'
@ 17,40 SAY '99 - Printer not on Menu'
STORE 0 TO SEL
@ 20,0 SAY 'ENTER SELECTION' GET SEL PICTURE '99'
READ
DO CASE
CASE SEL=1
STORE CHR(30) TO STANDARD
STORE CHR(29) TO CONDENSE
CASE SEL=2
STORE CHR(27)+'N'+CHR(15) TO STANDARD
STORE CHR(27)+'Q'+CHR(15) TO CONDENSE
CASE SEL=3
STORE CHR(20)+CHR(27)+CHR(53)+CHR(27)+CHR(66)+CHR(1) TO STANDARD
STORE CHR(20)+CHR(27)+CHR(53)+CHR(27)+CHR(66)+CHR(3) TO CONDENSE
OTHERWISE
ERASE
@ 5, 10 SAY 'C U S T O M P R I N T E R I N S T A L L A T I O N'
@ 8,10 SAY 'The system prints several reports in condensed mode (17 cpi).'
@ 10,10 SAY 'The program will shift the printer into the condensed print'
@ 12,10 SAY 'mode and back again if you can tell it the code to perform'
@ 14,10 SAY 'these functions. Consult your printer manual for the correct'
@ 16,10 SAY 'code sequence.'
STORE 'Y' TO SEL
@ 18,15 SAY 'Do you want to enter printer control codes? (Y/N) ' GET SEL PICTURE '!'
READ
ERASE
IF SEL='Y'
@ 5,10 SAY 'E N T E R P R I N T E R C O N T R O L C O D E S'
@ 8,10 SAY 'Instructions:'
@ 10,10 SAY 'The control codes are entered, one byte at a time.'
@ 11,12 SAY 'Each code is entered in its decimal equivalent. If'
@ 12,12 SAY 'your manual gives hexadecimal or alphabetic codes, each'
@ 13,12 SAY 'code will have to be converted to its decimal equi-'
@ 14,12 SAY 'valent. Consult the back of the manual for assistance.'
@ 16,10 SAY 'When prompted, enter the decimalized codes, one at a time,'
@ 17,12 SAY 'pressing the <cr> key after each code. End the entry'
@ 18,12 SAY 'by pressing the <cr> key.'
@ 20,0 SAY 'Shift Printer into STANDARD Print mode:'
STORE 10 TO L
STORE F TO EXIT
STORE ' ' TO STANDARD
DO WHILE .NOT.EXIT
STORE ' ' TO SEL
@ 23,0 SAY 'Enter Decimalized Print Code. <cr> when Done. ' GET SEL PICTURE '9999'
READ
CLEAR GETS
STORE SEL=' ' TO EXIT
IF .NOT.EXIT
@ 21,L SAY VAL(SEL) USING '999'
STORE STANDARD+CHR( VAL(SEL)) TO STANDARD
STORE L+4 TO L
ENDIF
ENDDO
@ 20,0 SAY 'Shift Printer into CONDENSE Print mode:'+CHR(7)
@ 21,0
STORE 10 TO L
STORE F TO EXIT
STORE ' ' TO CONDENSE
DO WHILE .NOT.EXIT
STORE ' ' TO SEL
@ 23,0 SAY 'Enter Decimalized Print Code. <cr> when Done. ' GET SEL PICTURE '9999'
READ
CLEAR GETS
STORE SEL=' ' TO EXIT
IF .NOT.EXIT
@ 21,L SAY VAL(SEL) USING '999'
STORE CONDENSE+CHR( VAL(SEL)) TO CONDENSE
STORE L+4 TO L
ENDIF
ENDDO
ELSE
@ 8,10 SAY 'NO PRINTER CONTROL CODES ENTERED.'
@ 10,10 SAY "It is the User's responsibility to manually set the"
@ 12,12 SAY 'printer into the condensed print mode when printing'
@ 14,12 SAY 'reports from Menu Option 3, Print Reports.'
WAIT
STORE ' ' TO STANDARD,CONDENSE
ENDIF
ENDCASE
ERASE
@ 8,10 SAY 'To force reconfiguration of the Printer Control Codes,'
@ 10,10 SAY 'Erase the file ML001.MEM.'
WAIT
RELEASE L,EXIT
RETURN
ASE L,EXIT
RETURN